Voorbeeld van de functie DateAdd

Dit voorbeeld neemt een datum en geeft, met behulp van de functie DateAdd, een corresponderende datum een opgegeven aantal maanden in de toekomst weer.

Dim FirstDate As Date    ' Declare variables.
Dim IntervalType As String
Dim Number As Integer
Dim Msg
IntervalType = "m"    ' "m" geeft maanden als interval.
FirstDate = InputBox("Voer een datum in")
Number = InputBox("Voer aantal op te tellen maanden in")
Msg = "Nieuwe datum: " & DateAdd(IntervalType, Number, FirstDate)
MsgBox Msg